home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
TPUG - Toronto PET Users Group
/
TPUG Users Group CD
/
TPUG Users Group CD.iso
/
COMAL
/
A-COMAL Series
/
(k)aaq.d64
/
f.dat
< prev
next >
Wrap
Text File
|
2007-02-28
|
2KB
|
106 lines
8000 FOR J:=1 TO 4 DO //F1
8010 PENUP
8020 FORWARD 2
8030 PENDOWN
8040 FORWARD 9
8050 PENUP
8060 BACK 11
8070 LEFT 90
8080 FORWARD 1
8090 RIGHT 90
8100 ENDFOR J
8110 //
8120 FOR J:=1 TO 12 DO // 2
8130 PENDOWN
8140 FORWARD 11
8150 PENUP
8160 BACK 11
8170 LEFT 90
8180 FORWARD 1
8190 RIGHT 90
8200 ENDFOR J
8210 //
8220 FOR J:=1 TO 6 DO // 3
8230 PENDOWN
8240 FORWARD 19
8250 PENUP
8260 BACK 19
8270 LEFT 90
8280 FORWARD 1
8290 RIGHT 90
8300 ENDFOR J
8310 //
8320 FOR J:=1 TO 2 DO // 3.5
8330 PENDOWN
8340 FORWARD 11
8350 PENUP
8360 BACK 11
8370 LEFT 90
8380 FORWARD 1
8390 RIGHT 90
8400 ENDFOR J
8410 //
8420 FOR J:=1 TO 6 DO // 4
8430 PENUP
8440 FORWARD 2
8450 PENDOWN
8460 FORWARD 9
8470 PENUP
8480 BACK 11
8490 LEFT 90
8500 FORWARD 1
8510 RIGHT 90
8520 ENDFOR J
8530 //
8540 FOR J:=1 TO 2 DO // 5
8550 PENUP
8560 FORWARD 2
8570 PENDOWN
8580 FORWARD 9
8590 PENUP
8600 FORWARD 11
8610 PENDOWN
8620 FORWARD 6
8630 PENUP
8640 BACK 28
8650 LEFT 90
8660 FORWARD 1
8670 RIGHT 90
8680 ENDFOR J
8690 //
8700 FOR J:=1 TO 2 DO // 6
8710 PENUP
8720 FORWARD 2
8730 PENDOWN
8740 FORWARD 26
8750 PENUP
8760 BACK 28
8770 LEFT 90
8780 FORWARD 1
8790 RIGHT 90
8800 ENDFOR J
8810 //
8820 FOR J:=1 TO 4 DO // 7
8830 PENUP
8840 FORWARD 4
8850 PENDOWN
8860 FORWARD 22
8870 PENUP
8880 BACK 26
8890 LEFT 90
8900 FORWARD 1
8910 RIGHT 90
8920 ENDFOR J
8930 //
8940 FOR J:=1 TO 2 DO // 8
8950 PENUP
8960 FORWARD 12
8970 PENDOWN
8980 FORWARD 6
8990 PENUP
9000 BACK 18
9010 LEFT 90
9020 FORWARD 1
9030 RIGHT 90
9040 ENDFOR J